home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
scrnmasm.arc
/
TEST.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-11-20
|
687b
|
33 lines
DosSeg
.XList
.Model Small
.Stack 100h
.Code
Include Exit.Mac
Include Save.MAC
Include Restore.Mac
Include CLS.MAC
Extrn WriteCharToScreen:Near,HideCursor:Near
Extrn ColorAttribute:Byte,RestoreCursor:Near
Page ,132
.Sall
.List
Title Testing New Macros
Start:
Mov AX,@Data
Mov DS,AX
Mov SI,Offset List
Mov CX,1000
Mov Byte Ptr ColorAttribute,01EH
Call HideCursor
Cls
WriteLoop:
LodSb
Call WriteCharToScreen
Loop WriteLoop
Call RestoreCursor
Exit
.Data
List db 300 dup('ABCDEFG')
End Start